Top 10k strings from Word Processor, The (1983)(MiCROL).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 to=cl*ll-ll+
   2 m$="no room: all "+
   2 lines+" lines used":
   2 ct=ll*(u-cl):
   2  1983 MiCROL
   1 z$=a$(cl,fc+lx
   1 y=y+(y=o):
   1 y;width''"3   page length:";
   1 y;lmarg''"2   line length:";
   1 y;lenpage''"4   page number (0=none):";
   1 y;(pno+l)*printpno''"5   justify (0=no, 1=yes): ";ju
   1 x=ben-bst+l:
   1 x$=x$+a$(j)
   1 x$=i$+r$+z$:
   1 x$="replace: "
   1 x$="find: ":
   1 x$=" "+x$+" ":
   1 width=ll-n
   1 v$(x))+x$(m+z
   1 v$(n+l,l)=
   1 to=bst*ll-ll+
   1 rev. 8/4/83
   1 q$="ENTER=type  arrows=move d=delete":
   1 printpno=o:
   1 printpno=n
   1 printpno=(pno>-l)
   1 pno=pno+l:
   1 p$="add text (ENTER to stop)
   1 o$(width-4
   1 m-l)+v$(x,z
   1 m$=x$+" not found":
   1 m$="unknown command"
   1 m$="to load":
   1 m$="space left: "+
   1 m$="for saving":
   1 m$="file name too long":
   1 m$="file '"+x$+"' now saved":
   1 m$="file '"+x$+"' now loaded":
   1 m$="end before start":
   1 m$="block start marked":
   1 m$="block limits not set":
   1 m$="block end marked":
   1 lno=lno+l:
   1 lno=lenpage:
   1 lno<lenpage
   1 ll-lmarg):
   1 l;"type:";
   1 l;"line ";cl;
   1 l;"Press a key to return to editor ":
   1 j$=a$(bst+n):
   1 j$=" "+j$+" ":
   1 fm=to+x*ll:
   1 fm=cl*ll-ll+
   1 fc=fc-fl*ll+ll+l:
   1 e$=a$(j,z):
   1 dir=(k$="6")-(k$="7")
   1 db=dt+dh-l:
   1 db<dt+dh-l
   1 d$=a$(cl):
   1 ct=(u-cl+l)*ll:
   1 ct=(u-ben)*ll:
   1 cl=cl+dir:
   1 c(cl),o;c$
   1 c(cl),o;a$(cl);
   1 c(cl),o;" ";
   1 a(y)=a(y)+l:
   1 a(i))+j$(p+l
   1 a()+u*ll+ll:
   1 a()+st*ll-ll:
   1 a()+en*ll-l
   1 a$(u+l)="":
   1 a$(j,l)="."
   1 a$(cl,i)=" "
   1 a$(cl)=j$:
   1 The Word Processor 
   1 The Word Processor
   1 ENTER=type  arrows=move d=deleteP 
   1 ENTER=type  arrows=move d=delete
   1 ,ll*(lines-u-l)+14
   1 )="page "+
   1 (width-n)/z)+j$:
   1 (lines-u)+" lines":
   1 ((fc+l)/ll+l):
   1 ''"Press number of item to change, or ENTER for no change..."
   1 ''"1   left margin:";
   1 "send to printer: ";
   1 "replace ";(f$);" with: ";
   1 "options: ";
   1 "new value for ";(x);": ";y
   1 "heading: ";
   1 "file name ";(m$);": ";
   1 "Type P again to confirm that youwish to print, or any other key to return to the editor..."
   1 "14",u*ll+
   1 "10",ll+l):
   1 "'yes' to delete block: ";
   1  Printing Format"